home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / poker.v.5k (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  2KB  |  50 lines
  1. 4 REM GERARD DESILETS #9491
  2. 5 CR=10
  3. 6 PRINT"[147][144]      SLOT POKER[146]"
  4. 10 PRINT"YOU HAVE TEN CREDIT TOPLAY POKER ONE CREDIT AT A TIME"
  5. 20 PRINT"YOU HAVE TWO DRAW BY  TURN AND YOU CAN TAKE UP TO 5 CARDS
  6. 30 [153]"WHEN YOU PRESS 1 TO 5 A CARD IS DISCARDED   _ RESTORE ALL CARDS"
  7. 35 [153]"A PAIR DONT PAY"
  8. 40 [153]"PRESS RETURN";:[133]A$
  9. 99 [137]1002
  10. 100 [129]N[178]1[164]5
  11. 105 [139]F(N)[179][177]0[167]140
  12. 110 D(N)[178][181]([187](8)[172]4[170]1):E(N)[178][181]([187](8)[172]13[170]1):F(N)[178]D(N)[172]15[170]E(N):[129]F[178]0[164]N[171]1
  13. 120 [139]F(N)[178]F(F)[167]110
  14. 130 [130]
  15. 140 [130]
  16. 400 A$[178]"A23456789TJQK":B$[178]"SPC(SPC(SPC(CMDCMDCMDSPC(SPC(SPC(CMDCMDCMDSPC(SPC(SPC(CMDCMDCMDSPC(SPC(SPC(CMDCMDCMDSPC(SPC(SPC(CMDCMDCMDSPC(SPC(SPC("
  17. 410 [129]N[178]1[164]5:D[178]D(N):E[178]E(N):[141]900:[153]""[163]151[170]N[172]4);B$(N):[130]
  18. 887 [139]H[177]1[167]1000
  19. 888 [161]A$:[139]A$[178]""[167]400
  20. 889 G[178][197](A$):[139]G[179][177]0[167]F(G)[178]0:[137]400
  21. 890 [139]A$[178]"_"[167][129]F[178]1[164]5:F(F)[178]99:[130]:[137]400
  22. 897 [139]A$[178][199](32)[167]H[178]H[170]1:[137]100
  23. 898 [137]888
  24. 899 [128]
  25. 900 [139][194](198)[177]0[167][142]
  26. 902 [139]F(N)[178]0[167]B$(N)[178]B$:[142]
  27. 905 C$[178][202](A$,E,1):E$[178][202]("STOPSTOP",D,1)
  28. 910 B$(N)[178]E$[170]C$[170]"TAB((null)CMDCMDCMDFN THENCMDCMDCMDFN THENCMDCMDCMDFN"[170][202]("ATN(null)(null)(null)",D,1)[170]"THENCMDCMDCMDFN THENCMDCMDCMD(null)TO"[170]C$
  29. 930 [142]
  30. 1000 [141]1100:[153]"CLR"[163]240)[163]208[171][195](I$)[173]2)I$
  31. 1001 [129]F[178]1[164]2299:[130]:[139]CR[179]0[167][128]
  32. 1002 [153]"LOAD  12345","USE NUMBER TO CANCEL"
  33. 1005 [153]"USE _ TO UNCANCEL",,,"USE SPACE TO DRAW"
  34. 1007 [153]" CREDITWAIT"CR
  35. 1010 H[178]0:[129]F[178]1[164]5:F(F)[178]0:D(F)[178]0:E(F)[178]0:[130]:[137]400
  36. 1100 [129]N[178]1[164]5:I(N)[178]0:[130]:[129]N[178]1[164]5:I[178]0:[129]F[178]1[164]5:[139]E(N)[178]E(F)[167]I[178]I[170]1
  37. 1110 [130]:I(I)[178]I(I)[170]1:[130]:I$[178]"NOTHING":J[178]0
  38. 1120 [139]I(2)[178]2[167]I$[178]"PAIR"
  39. 1130 [139]I(2)[178]4[167]I$[178]"TWO PAIRS":J[178]2
  40. 1140 [139]I(3)[178]3[167]I$[178]"THREE OF A KIND":J[178]2
  41. 1142 M[178]0:L[178]99:[129]N[178]1[164]5:[139]E(N)[179]L[167]L[178]E(N)
  42. 1144 [130]:[129]N[178]L[164]L[170]4:[129]F[178]1[164]5:Z[178]N[170](N[178]14)[172]13:[139]E(F)[178]Z[167]M[178]M[170]1:F[178]9
  43. 1146 [130]:[130]:[139]M[178]5[167]I$[178]"STRAITH":J[178]8
  44. 1150 K[178]0:[129]N[178]1[164]5:K[178]K[171](D(1)[178]D(N)):[130]:[139]K[178]5[167]I$[178]"FLUSH":J[178]16
  45. 1160 [139](I(2)[170]I(3))[178]5[167]I$[178]"FULL":J[178]32
  46. 1170 [139](M[170]K)[178]10[167]I$[178]STRAITH FLUSH":J=64
  47. 1180 IFI(4)=4THENI$="SQUARE":J=128
  48. 1190 IF(J=64)AND(L=10)THENI$="ROYAL STRAIT FLUSH":J=256
  49. 1200 Y=CR:CR=CR+(J=0)+J:RETURN
  50.